EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/docs/hyper/STCCGqc.lha/STCCGqc/install

Text File | 1996-11-05 | 6KB | 172 lines

; Install-Script for Pictures for the STCCG.guide
;
; © 1996 Ralf Schwate
;
; $VER:STCCG-update-install 1.0 (04-Nov-96)
;
; Version 1.0
;
; 1.0  Initial Release
;
(if (= @language "english")
    (
        (set @abort-button "Cancel installation")
        (set @app-name "STCCGguide")
        (set #stccg_introduction (cat "\n"

            "STCCG.guide 2.x                                    \n"
            "All Rights Reserved.                               \n"
            "                                                   \n"
            "©1996 Ralf Schwate                                 \n"
            "                                                   \n"
            "Pictures for the AmigaGuide-Database for the       \n"
            "Card Game                                          \n"
            "Star Trek: The Next Generation                     \n"
        ))
        (set #stccg_error (cat

            " Some error has occured. Please inform the author  \n"
            " (e.g. [e-mail]) after having tried \n"
            " a different Installer release.                    \n"
        ))
        (set #stccg_datafile_missing (cat

            " Datafiles are missing! You also need the archive  \n"
            " STCCGdata.lha extracted in the same directory     \n"
            " where you extracted this archive!                 \n"
            "\n"
            " Aborting install....                              \n"
        ))
        (set #stccg_where "Please select a destination for the STCCG.guide drawer")
        (set #stccg_where_help
            (cat "Use this dialogue to select the partition or the directory where you "
                 "want the STCCG.guide drawer to be created.\n\n"
                 @askdir-help
            )
        )
        (set #stccg_update_install (cat

            " You already have STCCG.guide installed. This      \n"
            " installation assumes, you want an update of the   \n"
            " installation.                                     \n"
            " If you want to install new, abort the installation\n"
            " remove the assign 'STCCG:' ('assign STCCG: remove'\n"
            " in a shell) and start the installation a second   \n"
            " time!                                             \n"
        ))
        (set #stccg_new_install (cat

            " This is a new installation of STCCG.guide!        \n"
            " A directory will be created in which all files    \n"
            " will be copied!                                   \n"
        ))
        (set #stccg_already_installed_font (cat

            " It seems you already have installed a             \n"
            " StarTrek.font!                                    \n"
            " You need an 8pt size font to use the Guides       \n"
            " correctly. If you installed this font with a      \n"
            " previous STCCGguide version you are safe.         \n"
        ))
        (set #stccg_install_font "Installing needed fonts in Fonts:?\n")
        (set #stccg_install_font_help (cat "\n"

            " STCCG.guide needs the font StarTrek.font in size 8\n"
            " to correctly display some of its pages.           \n"
            " The installer script tries to install this font   \n"
            " into the Fonts:-directory.                        \n"
        ))
        (set #stccg_add_assign "Add STCCG assign to user-startup?\n")
        (set #stccg_add_assign_help (cat "\n"

            " STCCG.guide needs this assign to find crosslinked \n"
            " files in it's database!                           \n"
        ))
        (set #stccg_install_show_script (cat

            " There is already a show-script installed!         \n"
            " Do you want to update the current show-script?    \n"
        ))
        (set #stccg_install_show_script_help (cat "\n"

            " STCCG.guide needs the show-script to show pictures\n"
            " contained in the guide. There should be no need to\n"
            " update the current script. Only if the viewing    \n"
            " utility cannot be found anymore.                  \n"
        ))
        (set #stccg_viewer "Please select a viewer for pictures in the database")
        (set #stccg_viewer_help (cat "\n"

            " STCCG.guide needs this file to show the pictures  \n"
            " included in the database. Should support iff- and \n"
            " gif-formats!                                      \n"
        ))
        (set #stccg_complete "\nInstallation complete.")
    )
)

; ** Setting of Variables
;

(set install_mode 0)
(set install_mode_new 0)
(set install_mode_update 1)
(set install_show_script 1)
(set install_show_script_no 0)
(set install_show_script_yes 1)

(onerror (

    (if (> @ioerr 0)

        (message (cat "\n ERROR CODE: " @ioerr "\n\n" #stccg_error))
    )
))


; ** Start of Installation
;


(message #stccg_introduction)

(welcome)

(transcript "On installing STCCG.guide ...")

(complete 0)

(if (exists "STCCG:" (noreq))
    (
        (set install_mode install_mode_update)
    )
    (
        (exit)
    )
)

(if (= install_mode install_mode_update)
    (
        (set install_dir (tackon (expandpath "STCCG:") "QCjpgs"))
    )
)

(set @default-dest (install_dir))

(complete 10)

(if (not (exists install_dir))
    (
        (makedir install_dir)
    )
)

(complete 10)

(copyfiles (source "QCjpgs") (dest "STCCG:QCjpgs") (all))

(complete 100)

(exit #stccg_complete)